home *** CD-ROM | disk | FTP | other *** search
/ The Canadian & World Encyclopedia 1998 / The Canadian & World Encyclopedia 1998 - Disc 2.iso / pc / pb / profile.dir / 00017_Script_~issues pause-play < prev    next >
Text File  |  1997-07-29  |  401b  |  15 lines
  1. global over_paused
  2. on mousedown
  3.   puppetsprite the clickon, true
  4.   if the movierate of sprite 22 = 0 then
  5.     set the castnum of sprite the clickon = cast "PAUSE.PCT"
  6.     set the movierate of sprite 22 = 1
  7.     set over_paused = 0
  8.   else
  9.     set the castnum of sprite the clickon = cast "PLAY.PCT"
  10.     set the movierate of sprite 22 = 0
  11.     set over_paused = 1
  12.   end if
  13.   updatestage
  14. end
  15.